home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
BARNET
/
FREENET
/
BRODIE
/
ARCWEB
/
TEMPLATE
/
!ArcWeb
/
!Run
Wrap
Text File
|
1997-08-13
|
4KB
|
109 lines
| !Run for ArcWeb
|
| Copyright (C) Stewart Brodie, 1994, 1995, 1996, 1997
|
|
| Have a look at the host computer system and determine if we can run on it,
| and if so, which extra modules we need.
|
RmEnsure UtilityModule 3.10 Error 0 ArcWeb requires RISC OS 3.10 or later
|
| Follow PRM (4:497) advice and prevent multiple running
|
If "<ArcWeb$Running>" = "yes" Then Error ArcWeb is already running
|
WimpSlot -min 800K
|
RmEnsure FilterManager 0.00 RMLoad System:Modules.FilterMgr
RmEnsure FilterManager 0.09 Error 0 You need at least Filter Manager 0.09 to run ArcWeb (see Problems Q21)
RMEnsure BorderUtils 0.05 RmEnsure WindowManager 3.17 RMLoad System:modules.BorderUtil
|
| Set up the paths now that we are sure we want to set the,
|
Set ArcWeb$Dir <Obey$Dir>
SetMacro ArcWeb$Path <ArcWeb$Dir>.,<ArcWeb$Dir>.Resources.,Resources:$.Resources.ArcWeb.
|
| Ensure that the ArcWeb module is present - this is now mandatory
RMEnsure ArcWeb 0.00 Run ArcWeb:ArcWeb
|
| Find out if we are in a read-only filing system
Run <Obey$Dir>.ROFS
|
|
| If the cache location is unknown (haven't seen !WebCache) AND we are in a read/write
| filing system, then use a subdirectory of ourselves as a last resort
|
If "<ArcWeb$CacheDir>" = "" Then If "<ArcWeb$ROFS_Status>" = "no" Then Set ArcWeb$CacheDir <ArcWeb$Dir>.WWWcache
If "<ArcWeb$CacheDir>" = "" Then If "<Wimp$ScrapDir>" <> "" Then Set ArcWeb$CacheDir <Wimp$ScrapDir>.WWWCache
If "<ArcWeb$CacheDir>" = "" Then Error You must find a !WebCache in a read/write filing system before running !ArcWeb
Unset ArcWeb$ROFS_Status
|
|
| Determine whether AddSprites is present and disable it whilst we insert small_b28
| into the common sprite pool.
| Also load in the extra sprites from RISC OS 3.5 that we need for RISC OS 3.1x only
Set ArcWeb$AddSprites "1"
RMEnsure AddSprites 0.00 Set ArcWeb$AddSprites "0"
Set ArcWeb$ASSmall <AddSprites$Small>
Set AddSprites$Small On
RmEnsure UtilityModule 3.50 IconSprites ArcWeb:310.!Sprites
IconSprites <ArcWeb$Dir>.!Sprites
Set AddSprites$Small <ArcWeb$ASSmall>
If "<ArcWeb$AddSprites>" = "0" Then Unset AddSprites$Small
Unset ArcWeb$ASSmall
Unset ArcWeb$AddSprites
IconSprites <ArcWeb$Dir>.!Types
|
|
| Note that this is a special syntax for ArcWeb$Home ONLY. On startup, ArcWeb
| automatically converts this into a valid local: URL.
| The local://riscos-full-path syntax is allowed to allow you to use
| variables such as <arcweb$dir> in the ArcWeb$Home variable
|
If "<ArcWeb$Home>" = "" Then Set ArcWeb$Home local://<ArcWeb$Dir>.PublicHTML.Welcome
|
| The default hotlist is <ArcWeb$HotLists>.usrHotList, the directory is .Bookmarks on the end of that
|
If "<ArcWeb$HotLists>" = "" Then Set ArcWeb$HotLists <ArcWeb$CacheDir>
|
| The default history location is in the cache
|
If "<ArcWeb$History>" = "" Then Set ArcWeb$History <ArcWeb$CacheDir>.History
|
| Now set the user preferences file
|
If "<ArcWeb$Choices>" = "" Then Set ArcWeb$Choices <ArcWeb$CacheDir>.Choices
|
| Locate the directory containing the helpers (need to guess if we don't know)
|
If "<ArcWeb$Helper$Dir>" = "" Then Set ArcWeb$Helper$Dir <ArcWeb$Dir>.^.!WebHelper.AppDir
|
Set File$Type_FAF HTML
Set Alias$@RunType_FAF Run <Arcweb$Dir>.!RunURL -file %%*0
|
|
| This is a default setting. WILL BE OVERRIDDEN by the Choices file
Set ArcWeb$CFSIOptions -nomode -max160K
|
If "<ArcWeb$MimeTypes>" = "" Then Set ArcWeb$MimeTypes ArcWeb:mime/types
If "<ArcWeb$AuthFile>" = "" Then Set ArcWeb$AuthFile <ArcWeb$Dir>.Auth_DB
|
| Run the Version checker
Set ArcWebUpgrader$Dir <ArcWeb$Dir>.Upgrader
Set ArcWebUpgrader$Path <ArcWebUpgrader$Dir>.
WimpSlot -min 160K -max 160K
Run <ArcWebUpgrader$Dir>.!RunImage
|
| Set up the URL launch protocol variables
|
Set Alias$URLOpen_HTTP Run <ArcWeb$Dir>.!RunURL %%*0
Set Alias$URLOpen_FTP Run <ArcWeb$Dir>.!RunURL %%*0
Set Alias$URLOpen_gopher Run <ArcWeb$Dir>.!RunURL %%*0
Set Alias$URLOpen_local Run <ArcWeb$Dir>.!RunURL %%*0
|
| Ensure enough memory is present, and claim the minimum we can survive with to start
| up, which will expand to the first value on a 8 section cache after initialisation
|
WimpSlot -min 800K -max 800K
|
Run <ArcWeb$Dir>.!RunImage %*0